
/* Calcolo del tempo impiegato per raggiungere tutti i siti di un'area */

calcolaTx(A,Tx):-
	sitiInteresseIn(A,L),
	((length(L,N),N<2)->
		(Tx=0,assert(percorso(A,L)));
		(saruman(L,P,Tx),assert(percorso(A,P)))
	).